PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


G 14 


**F I LE**]D**PASCLOSE2 


ccc ON 

cnr nm 
uN NN oun 
num oun ON 
num uN uN 
NN uN uN 
NN non 
nm meonc 

NN NN 

NN NN 
wou wus 
wud wud 
wud usu udu 
uu wus wus 
usu uu) wu 
wus usu usu 
eRe ey udu uu ud 
wus usu uu 


sd Lg 
WW WU a a as a ss a a) 


mn AWMwW 
nw MMMM 
nn nn mn 
nn ww nw 
unm mw nn 
mn nw un 
nw nw wn 
mn now nn 
MMW nn 
MMWwW “nn 
oOooooo°o000o 
Sooooooo°o°oo 
oo oo 
oo oo 
oo oo 
oo oo 
oo oo 
oo oo 
oOoooo0o0o00o 
lelelelelelelalelal=a) 
a4 
a od 
a | 
a 
do 
ood and 
= | 
—_J J 
cd cD cS ce cd ee cd eed eed ed ed) aed ad) ad 
cD ce ce ed ce ce ee ed eed ee) aed dd and) 
ww ww 
ww ww 
ww Vw 
wu Vw 
ww wv 
ww ww 
ww Vv 
ww ww 
VUVYVVUYVYVUUUY 
VLVVVUYUUY 
nn AnWwn 
nn NNMNMNM 
nn “nn nn 
mn nn vn 
nn nw wn 
mn nw “nn 
nn Own nw 
nn mw nw 
MMMwW nn 
AMMWM nn 
<qcedcacaetaataae 
qqaqddaadtaacacaae 
<< <a 
<< << 
<< << 
<< << 
<< << 
ad << 
<qqacecacdaaaaa 
aqdqqaqdaddadaddaaaaae 
aaaa 
aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
agaaaaaaaaaaada 
aqgaaaaaaaaaaaa 


mw Munn 
nw MMWMnM 
OW nn nw 
nn nn nw 
nw nn nn 
“wn nn nw 
“wn now Vn 
mn nn wn 
AMMWM nw 
MMmnmn nn 
— oe 
— o=e=8 


LLLLLLLELL 
LLLLLLLLiL 


—_—_—_—_——- 


H Sep 

 pesecuneat Close a file 16-S =1384 9] 4 1 9? AX-11 Bliss-32 V4.0- rae 
| 14-$ 2: PASRTL.SRCJPASCLOSE2.B32;1 
$ 1 0001 0 MODULE PASSCLOSE2 ( %TITLE ne? se a file’ 

$ ¢ BO08 8 SDENT = '1-006' ' File: PASCLOSE2.B32 Edit: $8L1006 

3 4 0004 1 BEGIN 

3 5 0005 1! 

$ 6 0006 1 VRE REAR ERAA ARATE EERE 
3 7 0007 1 !* + 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
; y 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 19 id : .* ALL RIGHTS RESERVED. * 
; I ® 
; \g Berg 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt * 
: 1 001 1 !'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 0016 1 !* OTHER PERSON. NO TJTLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: i SEA : .* TRANSFERRED. * 
3 '® *® 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
: $3 B053 : - CORPORATION. ® 
M i‘ *® 
; 23 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
; «2 0025 1 !«* * 
; 2 0026 1 !* * 
3 27 0027 1 LRA AREER EERE REAR REA AEA EATERS 
; 0028 1! 

; 2 0029 1 

; 30 0030 1 !++ 

‘- 0031 1 ! FACILITY: Pascal Language Support 

. : a 0C32 1! 

: 33 0033 ~«#1 i ABSTRACT: 

; 0034 1! 

: H BoR2 : This module contains PAS$CLOSE2 and PASS$S$CLOSE, which close a file. 

: $ ithe : ENVIRONMENT: User mode - AST reentrant 

; 39 0039 1 i AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

: 40 0040 1! 

; 41 0041 1 i MODIFIED BY: 

s 62 0042 1! 

3; 65 0043 1! 1-001 - Original. SBL_1-April-1981 

: 646 0044 1 ! 1-002 - Give error in PASS$SCLOSE2 if FCB is not valid. SB a i ress | 7 Sa 

: 45 0045 1 ! 1-003 - Correct erroneous error check in PASSS$CLOSE. 7 

: 46 0046 1 | 1-004 - Make sure XAB chain doesn't point to garbage. ete a 982 

: 47 0047 1 ! 1-005 - Zero FCB$L_STATUS before closing file 2. SBL 30-Aug-1982 
: 48 0048 1 | 1-006 - Use PASSS$AB KEYWD. NAME_TABLE to detect gust jeahe keywords. 

> 49 0049 1 | SBL 19-Aug-1983 

: $0 0050 1 i- 

os 0051 1 


= 
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PASSCLOSE2 Close a file 1heSep-1 984 9:07 AX-11 Bliss-32 V Page 2 
A806 Declarations 1e-Sep- 1382 9} :g9: 1 PASRTL.SRC PASC OsE2. toe 71 . (2) 
5 rte 038 1 ZSBTTL ‘Declarations’ 
; 4 055 1! 
; 55 054 1 ! PROLOGUE DEFINITIONS: 
; 055 1! 
ey 0056 (1 
3 28 B03! } REQUIRE ‘RTLIN:PASPROLOG'; ! Linkages, externals, PSECTs, structures 
: 60 0132 1! 
; 61 01 1 ! TABLE OF CONTENTS: 
; 6¢ 01246 1! 
, ¢ 0125 1 
3 64 81 6 1 FORWARD ROUTINE 
$ 65 127. (1 PASSCLOSE2: NOVALUE, ! Called by compiled code 
; @& 0128 #1 PASS$$CLOSE: NOVALUE; ! Called internally by RTL 
2 ar oie? 1 
; 6 0130 1! 
: 69 0131 1 =! MACROS: 
> 7 8136 1! 
“Bie 0133 1! NONE 
; 72 0134 1! 
$ 73 0135 1 ! EQUATED SYMBOLS: 
‘pe. 0136 1! 
i 0137 1 i NONE 
; «676 0138 1! 
: 77 0139 1 ! FIELDS: 
; 78 0140 1! 
4 79 0141 1! NONE 
; 80 0142 1! 
: 81 0143 1 ! OWN STORAGE: 
; 82 0144 1! 
; 83 0145 1! NONE 


oe 
cr 


my ee eee Td 
PROPOPININNS 2 sO 


oooo°oc[oo 
PASSA OSMMNNNUIVIVIVIN EE SEE YO 


at at st = ts 2 SS 2 2a 2 2 SS 2s a SS YS YS SY YS Ys. 


oo 
MR —OODNAWNE WN | O ODNOAUE WN $9 ODNA UNSW HO ODNAUEWWR ODO NOUSWWNOVOONO Yu 


C 
Pp 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
6 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


Bae Se Be Se Se Se Se Be Se Be Se Be Se Se Se Be Se Se Se Se Se Ge Se Se Se Se Ge Se ee Ge FF Ss Se Oe Ge FH Se Se FHSS SH ese BH Se SH ee Se te Ge Se Se Ge ee Ge Ge Se ee 
baddest atiatatatatabiababababiatmab Dada abatat abated aBabebabababababab abababad ad 

BBWAA AWAAI NIAID NININININININID 2 2 OP OO SS 

_ 

DOOCOOOOOOO OO OW 0009 00 09 0909 09 09 SI SINS SIN NINOO O 


le 
- Close a file 


TL 'PASSCLOSE2 - 
AL ROUTINE PASSCL 
PFV: REF SPAS 
KEYWORDS: VEC 
): NOVALUE = 


e+ 


FUNCTIONAL DESCRIPTION: 


This routine closes a Pascal file. 
compiled code for the CLOSE procedure. 


CALLING SEQUENCE: 


C 
0 
$ 
T 


ose a file’ 

E2 ( 
FV_FILE_VARIABLE, 
R , LONG] 


mn nw. 
ow 


Qe m-w 
o- 


L 
S 
Pp 
0 


FORMAL PARAMETERS: 
PFV 


keyword 
CLOSE procedure. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
NONE 
SIDE EFFECTS: 
See PASSS$CLOSE 
SIGNALLED ERRORS: 
FILALRCLO - file already closed 


(or ROUTINE VALUE:) 


ee ee ee ee ee ee ee ee eee 


BEGIN 


LOCAL 
FCB: REF SPASS$FCB_CONTROL_BLOCK, 
PFV_ADDR: VOLATILE, 

UNWIND_ACT: VOLATILE, 


J 14 
16-Sep-1984 01:29:07 
14 ett f 5:89 :9 


associated arguments and values. 
for the keyword value definitions. 


AXx-11 8B 
PASRTL. 
' Close a file 


! File variable met 
' Keywords and specifiers 


This entry is called from the 


CALL PASSCLOSE2 (PFV.mr.r C, keyword.rz.v C, keyword.rz.v ...J]) 
- The Pascal File Variable (PFV) passed ay Corer ieee 


The structure of the PFV is defined in 


If the keyword ERROR is specified, it must be first 
in the List, otherwise it will be ignored. 


' File Control Block 
' Enable argument 
! Enable argument 


SPFV.REQ. 


- Zero or more values representing keywords in the 
Some keywords are followed by 
See PASOPEKEY.REQ 
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Close a file 122868712 d 9538929 PASRTL SRE 
ERROR_ADDR: VOLATILE; ! Enable argument 
BUILTIN 
ACTUALCOUNT, 
CALLG; 
ENAB 


LE 

PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 
+ 

Set PFV_ADDR enable argument. 


PFV_ADDR = PFV CPFVSR_PFV); 

+ 

Validate and lock PFV. 
PASSSVALIDATE_PFV (PFV CPFVSR_PFVI; FCB); 


14 
Set unwind action to unlock file. 


UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 
+ 
: If ERROR is present, it is the first keyword in the list. See 
} if that is true. If so, set enable argument to the return address. 
ve aad () GEQU 3 ! At least 3 needed for PFV, keyword, value 
IF .KEYWORDS COJ EQL PASS$K_ERROR ! Is it the ERROR keyword? 
ERROR_ADDR = .KEYWORDS (1); 
4+ 
! If file variable is not valid, call PASSSOPEN_IMPLICIT to see if the 
! file should be implicitly opened. Even though we will just close it 
! again, we must do this to satisfy the Language semantics for INPUT 
and OUTPUT. 
IF mee -PFV CPFV$V_VALIDJ 
PASSSOPEN_IMPLICIT (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 
'¢ 
If FCB pointer is not valid, give an error. 
IF NOT .PFV CPFV$V_FCB_VALID] 


SPASSIO_ERROR (PAS$_FILALRCLO,0); 
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PASSCLOSE2 Close a file 1b Sep-1984 01:29:07 AX-11 whist -32 v4.0 
1-006 PASSCLOSE2 = Close a file 14- ~3007138 4 12 3:87: 1 PASRTL. SRC PASCLOSE2. 5 2:1 
; 199 0260 
; 9 63 iy he STATUS value in the FCB. Th itt d 
3 ' Zero the value in the . is w et stored in the 
3 Oe 0 8g ' PFV by PASSSREMOVE_FILE. ° 
; 20 0264 le 
3 04 0265 
: 205 0266 FCB Vv CPFVSA ty: 
; 206 0267 FCB CrCBSL _STATUS] = 
s gor 0268 
3 $08 0269 2 '+ 
: 209 0270 ' Call PASSS$CLOSE to do the work. 
: 310 0271 in 
3 11 0 Le: 
; ar 0273 2 CALLG (.AP, PASS$S$CLOSE); 
s 2t 0274 2 
HE BRE Enmove te trou the List of open #4 
Py emove it rom the ist o open 11es. 
; 216 0277 2 be 
; 217 0278 2 
3: 218 0279 2 PASSSREMOVE_FILE (FCB CFCBS$R_FCB); 
; 219 0280 2 
; 220 0281 2 '+ 
; 221 pes 2 ' Unlock the file variable. 
; 222 0283 2 !- 
s 223 0284 2 
3 224 0285 2 PFV CPFVS$V_LOCK] = 0; 
S dee 0286 2 
3; 226 0287 2 RETURN; 
s der 0288 2 
; 228 0289 1 END; ' End of routine PAS$CLOSE2 
- TITLE PASSEL OSE? Close a file 
IDENT \1-006\ 
-EXTRN PASS$CLOSE2, PASSSCLOSE 
-EXTRN PAS$$I0 HANDLER 
-EXTRN PASSSVACIDATE PFV 
-EXTRN PASSSOPEN_IMPCICIT 
-EXTRN PASS SSSIENAL. PAS$K_FILALRCLO 
-EXTRN PASS$$REMOVE_F ILE 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
00C4 00000 ENTRY PASSCLOSE2, Save R2,R6,R7 
5E 08 C2 00002 SUBL2 
7E D4 00005 CLRL ERROR ADDR 
04 AE 7C 00007 CLRQ UNWINB_ACT 
6D OO5E CF 43 QOO0A MOVAL aee (FP) 
56 04 AC 00 0000F MOVL pts 
08 AE 56 DO 00013 MOVL 
000060006 00 16 00017 JSB RG, FV ADDR PFV 
04 At 01 pY Boose MOVL #1, UNWIND_AC 
0 6C 91 00021 CMPB sé AP), 
OA 1F 966 4 BLSSU 
19 08 AC D1 00026 CMPL KEYWORDS, #25 
04 12 0002A BNEQ 1$ 
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PASSCLOSE2 Close a file 16-Sep-1984 01:29:07 AX-11 Bliss-32 V4.0-74 Page 
1-006 PASSCLOSE2 = Close a file i4- wen 1984 2: ‘87: 1 PASRTL.SRCJPASCLOSE2.B32;1 . 
6E ¢ AC D0 002¢ MOVL KEYWORD 4 ERROR_ADDR ; 

06 6 Ad EB 00030 1$ BLBS  6(R6) : 

000000006 00 16 00034 JSB PASSSOPEN. IMPLICIT : 

OE 07 6 06 EO OOO3A 2 BBS #6, 7(R6)> 3$ ; 

E D4 0003F CLRL 0s = ( §P) : 

7E 00G 8F 9A 00041 MOVZBL #PASSK patter -(SP) : 

000000006 00 02 FB 00045 CALLS #2, PASSS$SIGN ; 

04 0004¢ RET : 

57 0C AG DO 0004D 3$ MOVL  12(R6), FCB : 

04 A? D4 00051 CLRL = 44. (FCB) : 

0000v CF 6C FA 00054 CALLG (AP), PASS$SCLOSE : 

57 DD 90059 PUSHL ; 

000000006 00 01 FB 00058 CALLS ‘ PASSSREMOVE_F ILE : 

50 04 AC 00 00062 MOVL R : 

07 AO 80 8F BA 00066 BICB2 ri 7(RO) ; 

04 00068 RET : 

0000 0006C 4$ «WORD Save nothing : 

50 08 ac dO O006E MOVL  B(AP), ; 

50 04 Ad DO 0007 MOVL  4(RO). RO : 

F4 AO 9F 00076 PUSHAB ERROR_ADDR 3 

F8 AO 9F 00079 PUSHAB UNWIND ACT : 

FC AO 9F QOO7C PUSHAB PFV_ADBR ; 

03 DD 0007F PUSHL #3 : 

5E DD 00081 PUSHL SP : 

7E 04 AC 7D 00083 MOVQ 4(AP), =-(SP) : 

000000006 00 03 FB 00087 CALLS #3, PAS$$IO_HANDLER : 

04 0008E RET ; 


; Routine Size: 143 bytes, Routine Base: _PASS$CODE + 0000 


: 229 0290 1 
;. em 0291 1 !<BLF/PAGE> 
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PASSCLOSE2 Close a file 19=3007 138% 03:89:97 AX-11 Bliss-32 V4.0-74 
1-006 PASSSCLOSE = Close a file 14-Sep-1984 12:51:21 PASRTL.SRCJPASCLOSE2.B32;1 
3 3 0 3 1 XSBITL 'PASSSCLOSE = Close a file’ 
3 8 95 1 GLOBAL ROUTINE tae eet ( ! Close a file 
: ze 94 «WI IN_PFV: REF $SPASSPFV Ring ov ARIAS ' File variable 
: 5 0295 1 KEYWORDS: VECTOR C, CONG ' Keywords and specifiers 
; 236 0 38 1 ): NOVALUE = 
s gor 0297 1 
3 $3 0298 1 !++ 
: 246 8 +4 : FUNCTIONAL DESCRIPTION: 
; 241 0301 1! This procedure closes the Pascal file specified by ‘PFv"' 
; ses 0308 1! using the attributes possibiy supplied as ‘‘keyword’’. PAS$S$CLOSE 
> 24 0305 1! is to be called from other RIL routines only after they have tested 
> 244 0304 1! and set PFVSV_LOCK in ‘'PFV"’. 
3 st? 0305 1! 
: 246 0306 1 ! CALLING SEQUENCE: 
> 247 0307 1! 
; soe B308 : PASSSCLOSE (PFV.mr.r C, keyword.rz.v C, keyword.rz.v ...J)) 
: $36 0310 1 ! FORMAL PARAMETERS: 
> 251 0311 1! ' : 
; 252 0312 1} PFV - The Pascal File Variable (PFV) passed by reference. 
3 $37 o3t7 : The structure of the PFV is defined in PASPFV.MDL. 
3 @29 0315 1! keyword - Zero or more values representing keywords in the 
; 256 0316 1! CLOSE procedure. Some keywords are followed b 
3 ¢of 0317 1! associated arguments and values. See PASOPNKEY.MDL 
; 258 0318 1! for the keyword value definitions. 
3; 259 0319 1! 
; 260 0320 1 ! IMPLICIT INPUTS: 
: 261 0321 1! 
3 $o¢ O356 1! The PFV$V_LOCK bit is assumed to have been tested-and-set by the caller. 
; 26 0525 1 ! The PFVS$SV_FCB_VALID bit is assumed set. 
; 264 0324 1! 
3; 265 0325 1 ! IMPLICIT OUTPUTS: 
> 266 0326 1! 
3; 267 0327 1! NONE 
; 268 0328 1! 
; 269 0329 1 ! COMPLETION STATUS: 
: 270 0330 1! 
2 ery 0331 1! NONE 
; 272 beae 1! 
3; 273 0335 1 ! SIDE EFFECTS: 
: 274 0334 1! ; 
3 $72 0335 1! The file is closed. The record buffer and resultant name string 
: 276 0336 1! are deallocated. 
: 277 0337 1! 
; 278 0338 1 ! SIGNALLED ERRORS: 
; 279 0339 1! ‘ 
; 280 0340 1! ERRDURCLO = error during CLOSE ‘ 2 
3 0341 1! INVARGPAS = invalid argument to Pascal Run-Time Library | 
3 $ b3e8 : } FILNAMREQ - file name required to save, submit or print file 
; 0344 1 !-- 
; 0345 1 
: 0346 BEGIN 
; 0347 
: @ 0348 LOCAL 


PASSCLOSE2 l 
1-806 


PO 
ao 
oO 
nn 
me. 


oO 
Oooocc0ce0o v0 
WIAIMVIVINUIVINE WO 
WONOUFSWN—O” wv 
ANNAN ANNAN NINA POPIPUNIPUNINPUPIPINIPINYPINIPINIPUNINPOPUPNYUPONOPONPONoNPoNonononofnofnopofnrofnonofny ss fo @ 


WAWAI ANNA WIR PINI RNIN NI NINDS OO OO OS 


Ww 
MEW 0 OONOUE WD | OC OONOUESWN “OO ONOULSWN—O 


AAAI AAAI AANA NAIA AIAN ANNONA WWW 


Se 


Be Be Se Se Be Be Se Se Be Be Se Se Se Se Ge Se Se Ge Ge Ge Se Se Ge Fe Be Ge Ge Ge Ge Te Se Se Se Ge Se Fe Ge Ge Ge Ss Oe Se Se Se Se Se Ss Se Se Sete Ge Ge Ge Ge Ge Ge 


CDOOOODOOOOCOSOSOSOCCOSOSCSOSOSOCOSSSOOCSCOCOCOOOCOOCOOSOOOOOOCoOO 


Ft at ee 


WNW 


15 
1b-se -1984 29:07 AX-11 Bliss-32 V4.0<74 
Close a file 1e-8ep-19 4 93:87:07 PASRTL SREIPASCY OSe2 84251 
PFV: REF SPASSPFV_FILE_ VARIABLE, ! Pascal File Variable 
F°S3: REF SPASSFCB-CONTROL_BLOCK, ' File control block 
BLOCK_ADDR: VOLATILE, ' Address of egnen ically allocated block 


STATU : on from 
KEYWORDS_SEEN: BITVECTOR CPASS$K_OPEKEYHI+1], 
' track of neywords seen 


: Kee 
USER_ACTION_BPV: REF VECTOR C, LONG]; : USER_ACTION routine BPV 
BUILTIN 


TESTBITCS, 
TESTBITSC, 
ACTUALCOUNT; 
BIND 
RAB = FCB: REF BLOCK C, BYTE] 
FAB = FCB: REF $PAS$FAB_FCB STRUCT; 


‘+ 
Get PFV address. 


PFV = .IN_PFV; 
14 
Get addresses of PFV. 


FCB = .PFV CPFVSA_FCBI; 
'+ 
Do the keyword processing. 


KEYWORDS_SEEN <0,32> = 0; ! Indicate no keywords seen 
KEYWORDS-SEEN <32,PAS$K_OPEKEYHI+=31> = 0; 


+ 
Look through keyword List and set all specified attributes. 


INCR I FROM 0 TO (ACTUALCOUNT () = 2) DO 
BEGIN 
LOCAL 
KEYWD_VALUE; 
'¢ 


! Check for valid keyword code. If not already seen, use the 
keyword. 


KEYWD_ VALUE = .KEYWORDS C.1); 
IF_.KEYWD_VALUE LSS PAS$K_OPEKEYLO OR .KEYWD_VALUE GTR PASSK_OPEKEYHI 


SPAS$IO_ERROR (PAS$_INVARGPAS,0); 


le $2 -Sep-1984 t 91 197 97 AX-11 Bliss-32 V4.0 ree 
- Close a file 14-Sep-1984 12: PASRTL. SRCIPASCLOSE2. B32;1 (4). 


IF TESTBITCS (KEYWORDS_SEEN C.PASS$SAB_KEYWD_NAME_TABLEL .KEYWD_VALUEJJ) 
CASE -KEYWD_VALUE FROM PASSK_OPEKEYLO TO PASSK_OPEKEYHI OF 


Ao 
o 
oO 
tT deal 
rm. 


WE SWE BEB PWS BES SWE SSS SWE SES SWE BSE SWE EEE EA 


CPAS SPOSITION_SAVE): 
FCBSV -DELET 1 = 0; 
FCBSV_PRINT = 0; 
FCBSV~SUBMIT) = 6; 
FCBSV-SAVE] = 1; 


SPOSITION_DELETE): 


FCBSV_ PRINT] = 
FCBSV~ IT] = x" 
FCBSV at = 0; 
CFCBSVIDELETE) ='1; 


* RMMmZ 
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CPAS SPOSITION_PRINT): 
CBSV_DELETE] = 0; 
CBS SUBMIT] = 0; 
CBSV~SAVE] = 1; 
CBSV- -PRINT) = i; 


CPAS SPOSITION_PRINT_DELETE): 
CBSV_SUBMIT] = 0; 
CBSV"SAV ved = 0; 
BSV-PRINT] = 1; 
BSVDELETE) = i: 
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1- PASSSCLOSE - Close a file 14-Sep-1984 12:51:21 PASRTL.SRCJPASCLOSEZ.B32;1 
; 403 463 ; 
; 404 464 CPAS$K_ERROR): 
: 405 465 4 BEGIN 
; 406 0466 4 '+ 
; 407 0467 4 ! The ERROR perenster. if specified, was already processed 
; 408 0468 4 ! in PASSCLOSE, so just ignore it here. 
; 409 0469 4 Hoe 
; 410 0470 4 I = .] + 1; ! Ignore next parameter 
; 411 0471 3 END; 
3 a6 Bees 3 
3 $61 0473 3 CINRANGE ,OUTRANGE]: 
: 414 0474 3 SPAS$IO_ERROR (PAS$_INVARGPAS,O); 
> 415 0475 
: 416 0476 3 TES; 
; 617 0477 3 
> 418 0478 2 END; 
> 4419 0479 2 
: 420 0480 2 + 
3; 421 0481 2 ' Check for incompatible DISPOSITION. 
3 $56 0482 2 l 
: 42 0483 2 
> 424 0484 ¢ IF .FAB CFABSV_TMDJ] AND 
; oS: Ree? 3 . — CFCBSV_SAVE) OR .FCB CFCBSV_SUBMIT] OR .FCB CFCB$V_PRINTJ) 
: 427 0487 3 SPASSIO_ERROR (PASS$_FILNAMREQ,0); ! File name required 
: 428 0488 
: 429 0489 2 + ; . 
; 430 0490 2 ' Fill in fields in RMS control blocks 
3 66S) 0491 2 t= 
: 432 0492 2 
3 433 049 2 IF .FCB CFCBSV_DELETE] AND NOT .FAB CFABSV_TMDJ 
3; 434 0494 2 
3; 435 0495 2 FAB CFABSV_DLT) = 1; 
: 436 0496 2 
3; 437 0497 2 IF .FCB CFCBSV_SUBMITJ 
; 438 0498 2 
: 439 0499 2 FAB CFABSV_SCFJ = 1; 
: 440 0500 2 
3 441 0501 2 IF .FCB CFCBSV_PRINTJ 
: 442 0502 § T 
3 443 0503 FAB CFAB$V_SPLJ = 1; 
> 444 0504 2 
7 4445 0505 + : ; : 
3 446 0506 ! If a textfile, and if in Generation mode, and if the buffer 
3; 447 0507 ' is not empty, do a WRITELN. 
3; 448 0508 § te 
3 449 0509 
; 450 0510 § IF .FCB CFCBSV_TEXT] AND .FCB CFCBS$V_GENERATION] AND 
; $3) be13 (.FCB CFCBSA_RECORD_CUR] GTRA .FCB CFCBSA_RECORD_BEG)) 
: 438 $318 $ PASSSWRITELN (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBJ); 
: 454 0514 2 
3; 455 0515 '+ ; , 
; 456 0516 ! Make sure the XAB chain doesn't point to garbage. 
3; 457 0517 !- 
; 458 0518 
3; 6459 0519 FAB CFABSL_XAB) = 0; 
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1-006 PASS$CLOSE - Close a file 1a-sep-19 4 03:99:97 YONSRTL SREIPASCY OSC2. 68251 
: 460 0520 
; 461 521 '+ 
s 6 5 ¢ ' Close the file. 
: 46 5 te 
> 464 0524 
: 465 0525 IF .FAB CFABSW_IFIJ NEQ 0 
; 466 0526 THEN 
; 467 0527 BEGIN 
; 468 0528 3 IF _.KEYWORDS_SEEN CPASSK_USER_ACTIONJ 
; 469 b2¢2 3 THEN 
: 470 0530 4 BEGIN 
3 471 p23) 4 LINKAGE 
; as b28§ 2 USER_ACTION_LNK = CALL (REGISTER=1,STANDARD,STANDARD) ; 
3; 474 0534 4 STATUS = USER_ACTION_LNK (.USER_ACTION_BPV (OJ, ! Address 
3; 475 0535 4 .USER_ ACTION _BPV [1], ' Environment 
; 476 0536 4 FAB C0,0,0,0J, ' FAB address 
: 477 0537 4 RAB 0,0,0], ' RAB address 
; 478 0538 4 PFV CPFVS$R_PFVJ); i PFV address 
; 479 0539 4 END 
; 480 0540 3 ELSE 
> 481 0541 3 STATUS = $SPASSRMS_OP (S$CLOSE (FAB=FAB (0,0,0,0])); 
; 482 0246 3 
; 483 0543 3 + : 
>; 484 0544 3 ! Set the IFI to zero so we don't try another SCLOSE if the last one 
> 485 0545 3 ' failed. 
; 486 0546 3 te 
; 487 0547 3 
; 488 0548 3 FAB CFABSW_IFIJ = 0; 
3; 489 0549 3 
; 490 0550 3 '+ : ‘ 
: 491 0551 3 ! If the close failed, signal an error. 
3; 492 b22¢ 3 'e 
3; 493 0553 3 
3; 494 0554 3 IF NOT .STATUS 
: 495 0555 3 THEN 
; 496 0556 3 $PAS$IO_ERROR (PAS$_ERRDURCLO); 
3: 497 0557 3 
; 498 0558 2 END; 
; 499 0559 2 
; 500 0560 2 + 
s $01 0561 2 ' Deallocate the record buffer, if necessary. 
; 502 p26 2 '= 
2 5O5 056 § 
5 ope bece § IF TESTBITSC (FCB CFCBSV_DYNAMIC_UBF J) 
; 506 0566 2 PASSSFREE_VM (.RAB CRAB$W_USZJ, RAB CRABSL_UBFJ); 
: 507 0567 
; 508 0568 '+ ; 
: 293 b298 Deallocate key types vector, if necessary. 
ony 0571 IF .FCB CFCBSA_KEY_TYPES] NEQ 0 
3 21g 8276 HEN 
: 17 B20? PASSSFREE_VM (.FCB CFCBSL_NKEYSJ]*4, FCB CFCBSA_KEY_TYPES]); 
3 $15 0575 '¢ : : 
; 516 0576 ' Deallocate resultant name string, if dynamic. This should be the 
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5-006 PASSSCLOSE - Close a file 14- =tep- 1384 93; ¢7 1 PASRTL.SRCJPASCLOSE2.B32;1 
s Si7 0577 ' Last thing to do. 
: $18 578 in . 
s S19 57 
; 520 580 IF TESTBITSC (FCB CFCBSV_DYNAMIC_RSNJ) 
3 «(Sel 0581 THEN : 
a ¢ p26 BEGIN 
se 58 LOCAL 
; 5264 R288 : REF BLOCK C, BYTE]; 
s 5325 585 NAM = .FAB CF : 
; 526 0586 3 PASSSFREE_VM (.NAM CNAMSB_RSLJ, NAM CNAMSL_RSAJ); 
3 osc £344 END; 
: 508 at + 
: 530 0590 i Mark PFV to indicate file closed. 
s 331 0591 § ie 
; 236 B236 
3; 33 059 : PFV CPFVS$V_OPEN) = 0; 
> 534 0594 PFV CPFV$V_VALID] = 6; ! Invalidate flags 
: 5 0595 2 PFV CPFVS$V_DFB) = 0; i Invalidate file buffer 
; 536 0596 2 PFV CPFV$V— EOF “DEFINED) = 0; 
; 537 0597 2 
3; 338 0598 2 RETURN; 
; 539 0599 2 
; 540 0600 1 END; !' End of routine PAS$$CLOSE 


-EXTRN PAS$K_INVARGPAS 

-EXTRN PAS$$AB yt: NAME _ TABLE 
-EXTRN PAS$K_F 

~EXTRN PASSSORITELNT SYSSCLOSE 
“EXTRN PAS$K_ERRDURCLO 

-EXTRN PASSSFREE_VM 


OFFC 00000 .ENTRY PASSSCLOSE, Save R2,R3,R4,R5,R6,R7,R8,R9,- 
5B 000000006 00 9€ 00002 MOVAB PAS$$SIGNAL, R11 
5A 000000006 00 9E 00009 MOVAB PASSSFREE_VM, R10 
5E 08 C2 00010 SUBL2 #8, SP 
56 04 AC DO 00013 MOVL IN_PFV, PFV 
57 0C Aé6 DO 00017 MOVL ‘12 TPFVS FCB 
7E D4 0001B CLRL k YwORD DS_SEEN 
04 AE OlFF 8F AA 0001p Icw2 , KEYWORDS_SEEN+4 
54 6C 9A 9002 MOVZBL ¢ (a }? R 
54 02 C2 00026 SUBL #2, R4 
52 01 cE 00029 MNEGL I 
00c8 31 0002C 1$ BRW 15 
53 08 AC42 0 OO2F 2$ MOVL KEYWORDSCIJ, KEYWD_VALUE 
65 15 00034 BLEG 4$ 
28 53 D1 000 CMPL KEYWD_VALUE, #40 
69 14 00039 BGTR 
50 0000000060043 9A 000 : MOVZBL PAS$S$AB_KEYWD_NAME_TABLECLKEYWD_VALUEJ, RO 
E5 6E 20 E2 0004 BBSS RO KEY@ORDS_SE FEN, ."1$ 
¢7 01 53 CF 00047 CASEL KEYWD_VALUE, #1, 
0050 0050 0050 0050 0048 3$: <WORD 4$-3$7- 
0050 0050 0050 0050 0005 4$-3$.- 
0050 0050 0050 0050 00058 4$-3$.- 
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8006 PASSSCLOSE = Close a file 14- =tep- 198 § 12: at Of PASRTL.SRC PASCLOSE2. 5 2;1 ™ 
> 544 0603 1 END ! End of module PAS$CLOSE2 
> 545 bebe 1 
: 546 605 0 ELUDOM 
H PSECT SUMMARY 
; Name Bytes Attributes 
: PASSCODE 611 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ee ee ae eee Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 16 0 581 00:01.0 
3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 111 25 33 00:00.4 


COMMAND QUALIFIERS 
PLISS/CHECK CF DELD , ENETEM, OPT INEZED /NOTRACE/L 1801 LESS PARCLOSES/ORI9OBIS cPASCL OSES MSRC$:PASCLOSE2/UPDATE=(ENH$:PASCLOSE2 


Size: 611 code + 0 data bytes 
Run Time 00:14.1 

Slessed’ Tteet 00: 51. 
Lines/CPU Min 2578 
Lexenes/CPU-Min: 19367 
Memor 193 pages 


aa 


cee Dem Complete 


-—v 


293 AH-BT13A-SE—s_~s- : PMENT CORPORATION 
Lee oF, A 


VAX/VMS V4.0 Be “AND PROPRIETARY 


